home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs03.d81 / cad.sfx / ¯ (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  793b  |  23 lines
  1. 1 A=USR(0),0,1,4
  2. 2 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(17):A=USR(1):PRINT"[147]"
  3. 3 OPEN15,D0,15,"I0"
  4. 4 CLOSE15
  5. 5 PRINTCHR$(14)"[147] [208]RINT MENU"
  6. 6 PRINT" [211][199]-10:
  7. 7 [153]" S --> SINGLE SCREEN/SINGLE DENSITY
  8. 8 PRINT" [211] --> SINGLE SCREEN/DOUBLE DENSITY
  9. 9 [153]" D --> DOUBLE SCREEN/SINGLE DENSITY
  10. 10 PRINT" [196] --> DOUBLE SCREEN/DOUBLE DENSITY
  11. 11 [153]" C --> COMPRESSED SINGLE SCREEN
  12. 12 PRINT" 1525/[205][208][211]-801
  13. 13 [153]" P --> PRINT SCREEN VERTICAL
  14. 14 PRINT" H --> PRINT SCREEN HORIZONTAL
  15. 15 [161]A$:[139]A$[178]""[167]15
  16. 16 [139]A$[178]"!"[167][158]36867:[153]"--(null)CREENS SWITCHED--":[137]15
  17. 17 [139]A$[178]"="[167][158]36882:[153]"--(null)CREEN COPIED--":[137]15
  18. 18 [139]A$[178]"LOAD"[167][158]36888:[153]"--(null)CREEN CLEARED--":[137]15
  19. 19 [139]A$[178]"#"[167][158]36876:[153]"--(null)CREEN INVERTED--":[137]15
  20. 20 [139]A$[178]"&"[167][158]36879:[153]"--(null)CREENS ADDED--":[137]15
  21. 21 [153]"LOAD":A[178][183](0),1,7,14:A[178][183](1):A[178][183](16)
  22. 22 A[178][183](34),16,Y,6:A[178][183](34),X,231,7:[147]"PRCMND",D0
  23.